home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / point3d.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  1.3 KB  |  65 lines

  1. program Essai_tableau_de_structures;
  2.  
  3. var
  4.     tab3d : array[1..10] of point3d;
  5.     tab2d : array[1..10] of point2d;
  6.     color : array[1..10] of rgb;
  7.     i : integer;
  8. begin
  9.  
  10.     writeln;
  11.     writeln('           Tableau de Points 2d ');
  12.     writeln;
  13.     i :=1;
  14.     while i<10 do
  15.         begin
  16.             tab2d[i].x := i;
  17.             tab2d[i].y := i;
  18.             i := i+1;
  19.         end;
  20.  
  21.     i :=1;
  22.    repeat
  23.             writeln('   i=', i, '   x=',tab2d[i].x, ' y=',tab2d[i].y);
  24.             i := i+1;
  25.    until i>9;
  26.  
  27.     writeln;
  28.     writeln('           Tableau de Points 3d ');
  29.     writeln;
  30.     i :=1;
  31.     while i<10 do
  32.         begin
  33.             tab3d[i].x := i;
  34.             tab3d[i].y := i;
  35.             tab3d[i].z := i;
  36.             i := i+1;
  37.         end;
  38.  
  39.     i :=1;
  40.    repeat
  41.             writeln('   i=', i, '   x=',tab3d[i].x, ' y=',tab3d[i].y, ' z=',tab3d[i].z);
  42.             i := i+1;
  43.    until i>9;
  44.  
  45.     writeln;
  46.     writeln('           Tableau de Couleurs ');
  47.     writeln;
  48.     i :=1;
  49.     while i<10 do
  50.         begin
  51.             color[i].r := i;
  52.             color[i].g := i;
  53.             color[i].b := i;
  54.             i := i+1;
  55.         end;
  56.  
  57.     i :=1;
  58.    repeat
  59.             writeln('   i=', i, '   red=',color[i].r, ' green=',color[i].g, ' blue=',color[i].b);
  60.             i := i+1;
  61.    until i>9;
  62.  
  63.     writeln;
  64.  
  65. end.